home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
COMMADIO
/
GTPCPS44.LZH
/
PCP-PRTL.SCR
< prev
next >
Wrap
Text File
|
1988-12-30
|
2KB
|
54 lines
; GTPCP\V4.4 - PCP-PRTL SCRIPT
; (C) Perry Alexander - Dec 1988
; GT Power Version 14.03
; Script to Dial Portal
;
CLEAR
WRITELN " ╔═══════════════════════════════════════════════════════════════╗ "
WRITELN " ║ GTPCP 4.4 ║ "
WRITELN " ║ ║ "
WRITELN " ║ Attempting to connect to Portal via PCP ║ "
WRITELN " ║ ║ "
WRITELN " ║ To Return to Terminal Mode . . . . . Press Alt-X ║ "
WRITELN " ╚═══════════════════════════════════════════════════════════════╝ "
TWAIT 4000
CLEAR
SEND "C PORTAL,"
FUNCTION KEY SHIFT 8
WAIT FOR "WORD ="
V10 ADD %10 1
FUNCTION KEY SHIFT 9
GETLN V9
CASE %9 OF
~ CONNECT
BEEP
WRITELN "You are now connected to Portal"
WRITELN "Use ALT-X command to return to Node Menu after logging off"
SENDLN
SENDLN
ONLINE
BREAK
SENDLN "@"
WAIT FOR "@"
SENDLN "D"
WAIT FOR "CONN"
WAIT FOR "@"
CHAIN "PCP-NODE.SCR"
~ BUSY
CLEAR
WAIT FOR "@"
WRITELN
WRITE " Retrying ════════ PORTAL"
WRITE " Number of Attempts ..... "
WRITELN %10
WRITELN
WRITELN " To return to Node Menu - Press [Ctl-K] "
TWAIT 2000
CYCLE 100
CHAIN "PCP-NODE.SCR"
?
WRITE "TELENET response unrecognized :"
CHAIN "PCP-NODE.SCR"
ESAC
CHAIN "PCP-NODE.SCR"